customwritten script in mathematica Search Results